home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / egp_detect.nasl < prev    next >
Encoding:
Text File  |  2005-03-31  |  1.8 KB  |  70 lines
  1. # This plugin was written by Michel Arboi <arboi@alussinan.org>
  2. # It is released under the GNU Public Licence (GPLv2)
  3. #
  4. # See RFC 827 & RFC 888
  5. #
  6.  
  7. if(description)
  8. {
  9.   script_id(11908);
  10.   script_version ("$Revision: 1.6 $");
  11.  
  12.   name["english"] = "EGP detection";
  13.   script_name(english:name["english"]);
  14.  
  15.   desc["english"] = "
  16. This machine is running EGP. This routing protocol is obsolete and 
  17. should not be used any more.
  18.  
  19. Risk factor : Low";
  20.  
  21.   script_description(english:desc["english"]);
  22.  
  23.   summary["english"] = "Sends an EGP Neighbor Acquisition Message";
  24.   script_summary(english:summary["english"]);
  25.   script_category(ACT_GATHER_INFO); 
  26.   script_copyright(english:"This script is Copyright (C) 2003 Michel Arboi");
  27.   script_family(english:"Service detection");
  28.   exit(0);
  29. }
  30.  
  31.  
  32. ##include("dump.inc");
  33. include('global_settings.inc');
  34. include("network_func.inc");
  35. if (islocalhost()) exit(0);    # false positive
  36.  
  37. s = this_host();
  38. v = eregmatch(pattern: "^([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9])+$", string: s);
  39. if (isnull(v)) exit(0);
  40. for (i = 1; i <=4; i++) a[i] = int(v[i]);
  41.  
  42. a1 = rand() % 256; a2 = rand() % 256;
  43. s1 = rand() % 256; s2 = rand() % 256;
  44.  
  45. r = raw_string(    2,    # EGP version
  46.         3,    # Type
  47.         0,    # Code = Neighbor Acquisition Request
  48.         0,    # Info (not used here)
  49.         0, 0,    # checksum
  50.         a1, a2,    # Autonomous system
  51.         s1, s2,    # Identification
  52.         0, 30,    # NR Hello Interval
  53.         0, 120    # NR Poll Interval
  54.     );
  55.  
  56. ck = ip_checksum(data: r);
  57. r2 = insstr(r, ck, 4, 5);
  58.  
  59. egp = forge_ip_packet(ip_v: 4, ip_hl: 5, ip_tos: 0, ip_p: 8, ip_ttl: 64,
  60.             ip_off: 0, ip_src: this_host(),    data: r2);
  61.  
  62. f = "ip proto 8 and src " + get_host_ip();
  63. r = send_packet(egp, pcap_active: TRUE, pcap_filter: f);
  64. if ( r == NULL ) exit(0);
  65.  
  66. hl = ord(r[0]) & 0xF; hl *= 4;
  67. egp = substr(r, hl);
  68. if (ord(egp[0]) == 2 && ord(egp[1]) == 3 && ord(egp[2]) <= 4)
  69.   security_warning(port: 0, proto: "egp");
  70.